home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-2.sda / ╨BBS.NW1 1.26 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  25KB  |  733 lines
  1. 0 DX=0
  2. 1 REMOPEN1,8,15,"I0":PRINT#1,"S0:[186]BBS.NW1*":CLOSE1:SAVE"0:[186]BBS.NW1 1.26",8
  3. 5 ONOVGOTO60,63,64,65,67,13110,85,65,65,45,30,25,15,20,66,74,87,77
  4. 10 REM"[141][145][206][197][212][215][207][210][203] 64 [195][207][208][217][210][201][199][200][212] 1987,'88,'91 [194][217] [211][193][205] [204][197][215][201][212]
  5. 11 [143]"GOSUBON(null)1.26 (null)(null)STR$ATN(null)VAL (null)(null)STR$STR$VALSTR$ PEEK(null) ATNSTR$ATN(null) ASCATN(null)VAL(null)(null)(null)
  6. 15 GOSUB7010:OV=7:GOTO92
  7. 20 GOSUB7010:SU$="[186]PRIVATE"+"":OV=8:GOTO92
  8. 25 GOSUB12600:OV=4:GOTO95
  9. 30 BA=0:GOSUB14490:OV=1:GOTO97
  10. 45 X%=RN:ONI-39GOTO60,64,55
  11. 55 OV=11:GOTO97
  12. 60 GOSUB14005:GOTO91
  13. 63 OV=2:GOTO97
  14. 64 OV=3:GOTO97
  15. 65 OV=5:GOTO97
  16. 66 GOSUB12010:GOSUB12220:PRINTC2$"[215]ORKING...":OV=11:GOTO95
  17. 67 GOSUB1110:LG$=NU$+C2$+"[154]"+T$+" [207][213][212]"+CR$
  18. 68 X%=0:GOSUB8010:POKEC(31),0:PRINT"":GOSUB40000
  19. 72 FORI=1TONN%:IFN%(I)<-2THENOV=7:GOTO97
  20. 73 NEXT
  21. 74 TI$="000000":IFLC$<>""ANDASC(LC$)<>14THENLC$=""+LC$
  22. 75 GOSUB8010:OV=13:GOSUB7520:GOTO95
  23. 77 GOSUB40000:GOTO72
  24. 80 MT=.:GOSUB6210:GOSUB6110:GOSUB13650:GOSUB7520:POKE38849,71:S=INT(TI/60)
  25. 81 IFRN=1THENLG$=LG$+STR$(INT(S/6)/10)+" MINS.[154]"+CR$:GOSUB8010:OV=9:GOTO97
  26. 82 GOSUB6230:OV=14:GOTO97
  27. 85 GOSUB12010:GOSUB12220:OV=8:GOTO97
  28. 87 OV=10:VS=0:GOTO95
  29. 88 OV=12:GOTO97
  30. 91 OV=3
  31. 92 GOSUB12210:I$="MSG":GOTO103
  32. 95 GOSUB12210:I$="INI":GOTO103
  33. 97 I$="NW2
  34. 103 [141]7520:[139][194](39965)[178]2[167][151]39965,8
  35. 104 [151]1017,[198](I$):[151]1018,[198]([202](I$,2)):[151]1019,[198]([201](I$,1)):[141]489:[158]890
  36. 105 A$[178]"READ.":[158]C(1)
  37. 110 [158]C(4):A$[178][199]([194](C(3))):P[178][194](C(2)):[139]P[177]1[175]P[179]5[167]110
  38. 140 [142]
  39. 155 A$[178]CR$
  40. 160 [158]C(25):[142]
  41. 202 [141]491
  42. 203 [159]8,DV,8,DR$[170]F$:[142]
  43. 205 [141]202:[141]220:[137]270
  44. 220 [141]510:[139]ER[167][160]8:[142]
  45. 225 [141]155:A[178]1:[141]995
  46. 230 [158]C(5):SR[178]ST:A$[178][200](TX$,[194](142)):[158]C(1)
  47. 240 [139]A$[178]""[167]A$[178]"LETREAD":[158]C(1)
  48. 245 [141]110:[139]A$[178]" "[167]P[178]1:[139]C[178][171]1[167]C[178]0
  49. 250 [139][194](142)[179][195](TX$)[167]A$[178]CR$:[158]C(1)
  50. 255 [139]P[176]SR[167][141]360:[141]505:J[178]P:[141]995:P[178]J:[142]
  51. 260 [137]230
  52. 270 [139]([194](53281)[175]15)[178]0[175][194](53272)[178]23[167][142]
  53. 275 [139]P[167]13680
  54. 280 [142]
  55. 300 [139][194](C(22))[178]0[167]310
  56. 301 [151]C(22),2:[141]310:[151]C(22),1:[142]
  57. 302 [151]C(23),1:[141]303:[151]C(23),0:[142]
  58. 303 [139][194](C(22))[178]0[167]305
  59. 304 [151]C(22),2:[141]305:[151]C(22),1:[142]
  60. 305 A$[178]CR$[170]">":[158]C(1)
  61. 310 [158]C(8)
  62. 320 P[178][194](C(2)):I$[178][200](TX$,[194](142)):[139]P[178]0[167][142]
  63. 330 [139]P[178]1[176]P[178]255[167]A$[178]DE$:[139]I$[179][177]""[167][129]I[178]1[164][195](I$):[158]C(1):[130]:I$[178]""
  64. 350 [139]P[178]4[175]I$[179][177]""[167]A$[178]DE$:[129]II[178]1[164][195](I$):[158]C(1):[130]
  65. 355 [139]P[178]4[167]310
  66. 360 [139][194](C(34))[177]0[167]A$[178]"DEF(null)IMEOUT!":[137]160
  67. 365 [139]P[178]255[167]A$[178]"DEF(null)OST!":[137]160
  68. 370 [139]P[178]1[167][151]670,[194](669):[151]670,[194](669):A$[178]"INPUT(null)(null)(null)DIM":[137]160
  69. 380 [142]
  70. 390 [139]I$[179][177]""[167][139][201](I$,1)[178]" "[167]I$[178][200](I$,[195](I$)[171]1):[137]390
  71. 395 [139]I$[179][177]""[167][139][200](I$,1)[178]" "[167]I$[178][202](I$,2):[137]395
  72. 398 [142]
  73. 420 P[178]0:[139]T[179]TI[167]P[178]1
  74. 430 [139]CD[178]([194](56577)[175]16)[167]P[178]255
  75. 440 [142]
  76. 445 [129]B[178]1[164][195](P$):[152]5,[202](P$,B,1);:[130]:[152]5:[142]
  77. 460 DV[178]D(H):[139]DV[178]DX[175]H$(H)[178]H$[167]DV[178][182](DV):[142]
  78. 462 DX[178]DV:H$[178]H$(H):[160]15:[139]FL[167][151]148,((DV[179][177]8)[172][171]64)
  79. 465 DR$[178]"0:":[139]DV[179]0[167]DR$[178]"1:":DV[178][182](DV)
  80. 467 [139][200](H$,2)[178]"L8"[167]DR$[178][202](H$,3,1)[170]":
  81. 470 IC=-(LEFT$(H$,3)="HM4"):Z=LEN(H$):FORZZ=1TOZ:IFMID$(H$,ZZ,1)="!"THENZ=ZZ-1
  82. 472 NEXT:OPEN15,DV,15,LEFT$(H$,Z):IFZ<LEN(H$)THENPRINT#15,MID$(H$,Z+2)
  83. 475 GOTO510
  84. 480 H=0:GOTO460
  85. 481 H=1:GOTO460
  86. 484 H=4:GOTO495
  87. 485 H=5:GOTO460
  88. 486 H=6:GOTO460
  89. 489 H=9:GOTO460
  90. 491 H=11:GOTO460
  91. 495 D(H)=(8+(ABS(DN%(UD))AND7))*SGN(DN%(UD)):IFSD$<>""THENSD$=CHR$(UD+192)
  92. 497 H$(H)=DH$(UD):GOTO460
  93. 499 H=10:GOTO460
  94. 505 GOSUB510:CLOSE8:IFERTHENRETURN
  95. 510 INPUT#15,ER,ER$,ET,ES
  96. 520 IFER<20ORER=50ORER=62ORER=63ORER=64ORER=73THENRETURN
  97. 550 A$="[150][196]ISK #"+DR$+MID$(STR$(DV),2)+" ERROR ="+STR$(ER)+" "+ER$+"[146]
  98. 555 [141]8004:[139][195](E1$)[179]180[167]E1$[178]E1$[170]A$[170]CR$[170]NA$[170]CR$:[151]53280,2
  99. 560 A$[178]C2$[170]A$:[158]C(0):[139]ER[178]70[176]ER[178]71[167][152]15,"UI
  100. 570 IFER<>72THENRETURN
  101. 580 GOSUB13650:PRINT#15,"V"+LEFT$(DR$,1):A$=C2$+"[208]LEASE WAIT...":GOTO160
  102. 610 IFI$=""THENI=0:RETURN
  103. 620 GOSUB390:FORI=1TOLEN(I$):IFMID$(I$,I,1)<"0"ORMID$(I$,I,1)>"9"THENI=0:RETURN
  104. 650 NEXT:I=VAL(LEFT$(I$,38)):RETURN
  105. 710 IFLEFT$(H$,1)="L"THEN790
  106. 715 OPEN8,DV,0,"$"+DR$+F$
  107. 720 POKEC(6),0:GOSUB770:POKEC(6),13:GOSUB780:GOTO505
  108. 770 GET#8,A$,A$,A$,A$,A$,A$:SYSC(5):RETURN
  109. 780 GET#8,A$,A$,A$,B$:A=ASC(A$+NU$)+ASC(B$+NU$)*256:RETURN
  110. 790 PRINT#15,"LG";:INPUT#15,A,A$,A,A,A,A,N:A=INT(A/254*512):RETURN
  111. 905 GOSUB510:PRINT#15,"P"CHR$(RN-256*INT(RN/256))CHR$(RN/256)CHR$(II)
  112. 907 GOTO510
  113. 910 PRINT#15,"P"NU$"":RETURN
  114. 945 GOSUB905:SYSC(5):A$=LEFT$(TX$,PEEK(142)):RETURN
  115. 995 GOSUB110:IFA$<>NU$ORP=1THEN995
  116. 996 RETURN
  117. 1005 A$=C2$+"[193]RE YOU SURE ([217]/[206])? ":SYSC(26)
  118. 1010 GOSUB13640
  119. 1020 GOSUB110:IFA$<>"[217]"ANDA$<>"[206]"ANDP=0THEN1020
  120. 1030 RETURN
  121. 1110 A=PEEK(56331):IFA>32THENA=A-128:GOSUB1190:F$=" PM":PM=1:GOTO1140
  122. 1120 GOSUB1190:F$=" AM":IFPM=1THENND=1
  123. 1140 IFA=0THENA=12
  124. 1150 T$=MID$(STR$(A),2):A=PEEK(56330):GOSUB1190:A$=":":IFA<10THENA$=":0
  125. 1170 T$[178]T$[170]A$[170][202]([196](A),2)[170]F$:A[178][194](56328):[142]
  126. 1190 A[178][181](A[173]16)[172]10[170]A[171][181](A[173]16)[172]16:[142]
  127. 1283 I[178]4:A$[178]C2$[170]"READVALNTER YOUR MESSAGE - 75 LINES MAXIMUM
  128. 1284 A$=A$+C2$+"[135]/W[146] - TOGGLE WORDWRAP"+CR$+"[135]/D[146] - DELETE PREVIOUS LINE
  129. 1285 [139][194](C(22))[178]1[167]A$[178]A$[170]CR$[170]"READ/UWAIT - UPPERCASE/GRAPHICS
  130. 1286 IFKKTHENA$=A$+CR$+"[135]/*[146] - LOAD DEFAULT MSG
  131. 1287 A$[178]A$[170]CR$[170]"READ/EWAIT - EDIT MESSAGE"[170]CR$[170]"READ/SWAIT - SEND MESSAGEREAD":[158]C(0)
  132. 1290 [141]155
  133. 1300 [151]C(16),FM:[129]A[178]I[164]ML[170]3
  134. 1320 [141]310:[139]P[167]A$[178]"ATN":[137]1447
  135. 1325 [139]I$[178]""[175]A$(A[171]1)[178]CR$[175]A$(A[171]2)[178]CR$[167]1410
  136. 1330 [139]I$[178]"/E"[176]I$[178]"/VAL"[167]1410
  137. 1331 [139](I$[178]"/U"[176]I$[178]"/(null)")[175][194](C(22))[178]1[167][141]13950:[137]1320
  138. 1332 [139]I$[178]"/W"[176]I$[178]"/(null)"[167][141]2910:[137]1320
  139. 1333 [139]I$[178]"/D"[176]I$[178]"/STR$"[167][141]2960::[137]1320
  140. 1335 [139]I$[178]"/S"[176]I$[178]"/(null)"[167][142]
  141. 1336 [139]KK[175]I$[178]"/*"[167][141]2305:[137]1410
  142. 1338 [139]A[177]ML[171]3[167]A$[178]"":[158]C(1)
  143. 1340 [139][194](211)[179]MC[176]FM[178]0[167]1390
  144. 1350 [129]II[178][195](I$)[164][195](I$)[171]10[169][171]1
  145. 1352 [139]II[179]1[167][130]:A$[178]CR$:[158]C(1):[137]1390
  146. 1355 [139][202](I$,II,1)[179][177]" "[167][130]:A$[178]CR$:[158]C(1):[137]1390
  147. 1360 A$(A)[178][200](I$,II[171]1)
  148. 1370 [139]II[178][195](I$)[167]A$[178]CR$:[158]C(1):[137]1395
  149. 1372 [151]198,[195](I$)[171]II
  150. 1375 [129]B[178]II[170]1[164][195](I$):[151]630[170]B[171]II,[198]([202](I$,B,1)):A$[178]DE$:[158]C(1):[130]
  151. 1380 [158]C(0):[137]1395
  152. 1390 A$(A)[178]I$
  153. 1395 [139][195](A$(A))[179][195](TX$)[171]1[167]A$(A)[178]A$(A)[170]CR$
  154. 1397 [130]A
  155. 1410 [151]C(16),.:[141]995:A$[178]C2$[170]"READ((null))IST, READ(VAL)DIT, READ(LEN)ONTINUE, READ(STR$)ELETE,"[170]CR$
  156. 1417 A$[178]A$[170]"READ(RIGHT$)NSERT, READ((null))AVE, READ((null))EW, READ(ATN)BORT? ":[158]C(26)
  157. 1430 [139]P[178]1[167][141]360:A$[178]"ATN":[137]1447
  158. 1432 [139]P[167][141]360:[137]1320
  159. 1433 [139][194](653)[178]2[167][141]2300:[137]1410
  160. 1435 [141]110:[139]A$[178]NU$[167]1430
  161. 1441 [158]C(25):[139]A$[178]"(null)"[167][142]
  162. 1443 [139]A$[178]"(null)"[167][141]1610:[137]1410
  163. 1444 [139]A$[178]"RIGHT$"[167][141]2810:[137]1410
  164. 1445 [139]A$[178]"VAL"[167][141]1710:[137]1410
  165. 1446 [139]A$[178]"(null)"[167][141]2007:A$[178]"":[139]A[178]4[167][141]13680:[137]1283
  166. 1447 [139]A$[178]"ATN"[167][141]2005:[139]A$[178]"(null)"[167]1455
  167. 1448 [139]A$[178]"STR$"[167][141]2510:[137]1410
  168. 1449 [139]A$[178]"LEN"[167][141]2210:[139]I[179]ML[170]4[167]1300
  169. 1450 [137]1410
  170. 1455 [151]C(16),0:[139]A[177]4[175]MT[178][171]1[167][152]15,"S"[170]DR$[170]FI$
  171. 1456 [139]A[178]4[167][141]13680:[141]155:A$[178]"DEFATNBORTED!WAIT":[141]8004:[137]160
  172. 1467 [159]8,DV,8,DR$[170]FI$[170]",S,W":[141]510
  173. 1470 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]FI$[170]",A":[141]510:[152]8,CR$[170]"
  174. 1475 IFERTHENCLOSE8:GOSUB1530:A=4:GOTO1455
  175. 1480 GOSUB13680:A$=C2$+"[135][211]TORING MESSAGE...":SYSC(0)
  176. 1485 PRINT#8,Z$:FORI=.TOA-1:PRINT#8,A$(I);:NEXT
  177. 1520 GOSUB505:A=232
  178. 1530 FORI=.TOA:A$(I)="":NEXT:RETURN
  179. 1610 A$=C2$+"[204]IST WITH LINE NUMBERS ([217]/[206])? ":SYSC(26):GOSUB1010:IFPTHEN360
  180. 1626 SYSC(25):J=0:IFA$="[217]"THENJ=1
  181. 1630 GOSUB155:GOSUB13680:FORI=0TOA-1:A$=A$(I)
  182. 1640 IFJANDI>3THENA$=CR$+"[204]INE"+STR$(I-3)+":"+CR$:SYSC(25):A$=A$(I)
  183. 1655 SYSC(1):GOSUB110:IFA$=" "THENP=1
  184. 1657 IFP=1ORP=255THEN360
  185. 1660 NEXT:RETURN
  186. 1710 A$=C2$+"[197]NTER LINE NUMBER TO EDIT (+/-=[193][204][204])":SYSC(25)
  187. 1720 GOSUB305:GOSUB390:A$=RIGHT$(I$,1):IFA$<>"+"ANDA$<>"-"THEN1800
  188. 1730 I$=LEFT$(I$,LEN(I$)-1):GOSUB610:IFI$=""ANDA$="+"THENI=1:GOTO1740
  189. 1732 IFI$=""THENI=A-4
  190. 1735 IFA$="-"THENFORI=ITO1STEP-1:GOTO1750
  191. 1740 FORI=ITOA-4
  192. 1750 GOSUB1810:IFPTHENRETURN
  193. 1760 NEXTI:RETURN
  194. 1800 GOSUB610:IFI=0THENRETURN
  195. 1810 IFI<1ORI>A-4THENP=1:GOSUB13670:RETURN
  196. 1820 A$=CR$+"[204]INE"+STR$(I)+":"+CR$:SYSC(25):A$=A$(I+3):SYSC(0)
  197. 1830 A$="[197]NTER CHARS TO BE REPLACED OR [210][197][212][213][210][206]":SYSC(25)
  198. 1840 GOSUB305:F$=I$:IFPTHENRETURN
  199. 1850 IFI$+CR$=A$(I+3)THENJ=1:GOTO1900
  200. 1860 IFI$=""THENRETURN
  201. 1870 FORJ=1TOLEN(A$(I+3))-LEN(F$)+1:IFMID$(A$(I+3),J,LEN(F$))=F$THEN1900
  202. 1890 NEXTJ:A$=CR$+"[212]EXT NOT FOUND!":SYSC(25):GOTO1820
  203. 1900 A$=CR$+"[197]NTER REPLACEMENT CHARACTERS":SYSC(25)
  204. 1910 GOSUB305:IFPOR(A$(I+3)=CR$ANDI$="")THENRETURN
  205. 1915 IFLEN(I$)-LEN(F$)+LEN(A$(I+3))>250THEN1995
  206. 1920 A$(I+3)=LEFT$(A$(I+3),J-1)+I$+MID$(A$(I+3),J+LEN(F$)):GOTO1820
  207. 1995 A$=CR$+"[210]EPLACEMENT WOULD BE TOO LONG!":SYSC(25):GOTO1820
  208. 2005 A$=C2$+"[193]BORT":GOTO2030
  209. 2007 A$=C2$+"[206]EW [205]ESSAGE
  210. 2030 [158]C(25):[141]1005:[139]P[178]255[167][141]360:[141]8004:A$[178]"(null)":[137]2060
  211. 2040 [139]P[178]1[167]360
  212. 2050 [158]C(25):[139]A$[178]"(null)"[167][142]
  213. 2060 [129]I[178]4[164]A[171]1:A$(I)[178]"":[130]:A[178]4:[142]
  214. 2210 I[178]A:[139]I[177]ML[170]3[167]A$[178]C2$[170]"(null)ESSAGE FULL!":[137]160
  215. 2250 A$[178]C2$[170]"LENONTINUE MESSAGE -"[170][196](75[170]4[171]I)[170]" LINES LEFT":[158]C(25)
  216. 2260 J[178]0:[141]1630:I[178]A:[142]
  217. 2300 [153]CR$"MERGE":A$(66)[178]FI$:A$(67)[178][196](D(10)):A$(68)[178]H$(10):[141]41505
  218. 2302 FI$[178]A$(66):D(10)[178][197](A$(67)):H$(10)[178]A$(68):[139]P[167]2340
  219. 2303 [159]8,DV,8,DR$[170]I$:[141]510:[139]ER[167]2340
  220. 2304 [137]2330
  221. 2305 [141]486:[159]8,DV,8,DR$[170]"?PRIVATE 0
  222. 2310 A$=C2$+"[204]OADING DEFAULT...":SYSC(25):GOSUB510:IFERTHEN2340
  223. 2320 FORJ=1TO4:SYSC(5):NEXT:IFSTTHEN2340
  224. 2330 SYSC(5):A$(A)=LEFT$(TX$,PEEK(142)):IFPEEK(142)<LEN(TX$)THENA$(A)=A$(A)+CR$
  225. 2335 A=A+1:IFST=0ANDA<ML+4THEN2330
  226. 2340 GOSUB505:DX=0:GOTO499
  227. 2510 A$=C2$+"[196]ELETE FROM?  ":SYSC(26)
  228. 2520 GOSUB310:GOSUB610:IFI=0THENRETURN
  229. 2530 IFI<1ORI>A-4THENGOSUB13670:GOTO2510
  230. 2540 T=I:A$="[212]HRU (E=END)? ":SYSC(26):GOSUB310:IFPTHENRETURN
  231. 2565 IFI$=""THENI=T:GOTO2580
  232. 2567 IFI$="E"ORI$="[197]"THENI=A-4:GOTO2580
  233. 2570 GOSUB610:IFI<TTHENRETURN
  234. 2575 IFI=>A-3THENI=A-4
  235. 2580 GOSUB155:FORJ=TTOI:A$=A$(J+3):SYSC(1):NEXT
  236. 2590 GOSUB1005:IFPTHEN360
  237. 2600 SYSC(25):IFA$="[206]"THENRETURN
  238. 2660 FORJ=I+1TOA-4:A$(J+T-I+2)=A$(J+3):NEXT
  239. 2670 A=A+T-I-1:FORJ=ATOML:A$="":NEXT:RETURN
  240. 2780 FORI=0TO200:A$(I)="":NEXT:RETURN
  241. 2810 IFA>MLTHEN2210
  242. 2815 A$=C2$+"[201]NSERT BEGINNING AT (1-"+MID$(STR$(A-4),2)+") > ":SYSC(26)
  243. 2820 GOSUB310:GOSUB610:IFI=0THENRETURN
  244. 2830 T=I:IFI<1ORI>A-4THENGOSUB13670:GOTO2810
  245. 2840 A$="[206]UMBER OF LINES TO INSERT (1-" +MID$(STR$(ML+4-A),2)+") > ":SYSC(26)
  246. 2845 GOSUB310:IFPTHENRETURN
  247. 2850 IFI$=""THENI=1:GOTO2860
  248. 2855 GOSUB610:IFI<1THENRETURN
  249. 2860 IFA+I>ML+4THENA$=C2$+"[150][212]OO MANY LINES!":SYSC(25):GOSUB155:GOTO2840
  250. 2870 FORJ=A-TTO4STEP-1:A$(T+J+I-1)=A$(T+J-1):A$(T+J-1)="":NEXT
  251. 2880 A$=C2$+"[197]NTER THE"+STR$(I)+" LINES TO BE INSERTED"+CR$:SYSC(25)
  252. 2890 FORJ=T+3TOT+I+2:GOSUB310:IFP=0THENA$(J)=I$+CR$:NEXT
  253. 2895 A=A+I:RETURN
  254. 2910 IFFM=0THENFM=1:A$="[215][207][210][196][215][210][193][208] [207][206]":GOTO2930
  255. 2920 FM=0:A$="[215][207][210][196][215][210][193][208] [207][198][198]
  256. 2930 [151]C(16),FM:[137]160
  257. 2960 [139]A[178]4[167]A$[178]"(null)OP OF MESSAGE!":[137]160
  258. 2970 A[178]A[171]1:A$(A)[178]"":A$[178]"STR$VAL(null)VAL(null)VALSTR$!":[137]160
  259. 5000 [152]15,"S"[170]DR$[170]F$:[142]
  260. 6000 [141]43003:[139]VE[167]6400
  261. 6010 [153]C2$"(null)REPARING TO SEND MSGS....":X[178]1
  262. 6030 F$[178]"SQR+NODE"[170][196](X%)
  263. 6035 [141]202:[141]505
  264. 6040 [139]ER[167]A$[178]"(null)O MSGS":[153]C2$A$:[141]8004:N%(X%)[178].:ER[178].:P[178].:[137]13650
  265. 6060 [141]42650:[139]ER[178]0[175]P[178]0[167]A$[178]"(null)(null)":[141]8004
  266. 6065 [141]430:[139]P[178]255[167]N%(X%)[178]0:[137]365
  267. 6067 [141]491:[139]RN[179]0[167]F$[178]"SQRCOND.TMP":[141]5000:[137]6073
  268. 6070 F$[178]"SQRNODE"[170][196](X%)[170]" USERS":[141]6085
  269. 6071 [139]ER[176]P[167]6080
  270. 6073 [141]491:T[178]2:[141]42810:[139]ER[178]0[175]P[178]0[167]A$[178]"(null)IST/TERMS":[141]8004
  271. 6080 N%(X%)[178]0:[141]491:F$[178]"SQR+NODE"[170][196](X%):ER[178]0:P[178]0:[137]5000
  272. 6085 P[178].:[141]203:[141]510:[139]ER[167]505
  273. 6087 [158]C(5):A$[178][200](TX$,[194](142)):A$[178][202](A$,5):[160]8:[137]6095
  274. 6088 A[178][197]([202](A$,10,2))[172]31[170][197]([202](A$,13,2))[170][197]([202](A$,16,2))[172]372
  275. 6089 B[178][197]([200](DA$,2))[172]31[170][197]([202](DA$,4,2))[170][197]([201](DA$,2))[172]372
  276. 6090 [139]B[171]A[179]N%(0)[167]P[178]2:A$[178][196](N%(0)[171](B[171]A))[170]" DAYS LEFT":[137]8004
  277. 6093 [137]6098
  278. 6095 [139][202](A$,12,1)[178]"/"[175][202](A$,15,1)[178]"/"[175][195](A$)[178]17[167]6088
  279. 6096 A$[178]"(null)EMBERSHIP LIST FORMAT ERROR FOR NODE"[170][196](X%):P[178]2:[137]8004
  280. 6098 ER[178]0:I$[178]F$:[137]5000
  281. 6110 [141]43003:[139]VE[167]6600
  282. 6112 [141]491:[141]16300
  283. 6115 [139]A[179]0[167][151]C(31),1:[141]13610:P[178]1:[151]C(31),0:[137]8004
  284. 6120 F$[178]"SQRNODE.TMP":[141]203:[141]505
  285. 6125 [139]ER[178]0[167][141]5000:[137]6120
  286. 6127 [139]ER[179][177]62[167]A$[178]ER$:[137]8004
  287. 6130 [141]491:ER[178]0:I$[178]F$:T[178]2:[141]42810:[129]I[178]1[164]2000:[130]:[141]430
  288. 6135 [139]P[178]255[167]A$[178]"(null)ECEIVED-(null)O (null)IST (null)EQ.":[137]8004
  289. 6150 [153]C2$"(null)REPARING TO SEND....
  290. 6152 IFRN=1THENF$="[186]CONDITIONS":GOTO6157
  291. 6155 F$="[186]NODE X USERS"
  292. 6157 GOSUB203:GOSUB505:IFERTHENA$=ER$:GOTO8004
  293. 6160 GOSUB42650:GOSUB430:IFP=255THEN6135
  294. 6170 A$="[211]ENT,[210]ECEIVED":GOTO8004
  295. 6210 LC$=NA$:DD$=DA$:IFRN=1THENLC$="[206][197][215] [206][207][196][197]"+"":NA$=LC$
  296. 6220 NU=NU+1:GOTO13600
  297. 6230 GOSUB18520:IFERTHEN505
  298. 6240 II=43:GOSUB905:GOSUB510:PRINT#8,DA$:II=1:GOSUB905:GOTO505
  299. 6250 A$="[150][212][201][205][197] [207][213][212]!"+CR$:GOSUB8004:PRINTA$:N%(X%)=.:GOTO13650
  300. 6310 X=TI+2700:PRINTC2$"[156][204][207][199][201][206]:[146] [158]";
  301. 6320 T=TI+180:PRINT#5,"";:PRINT".";:IFX<TITHENP=1:GOTO6340
  302. 6330 GET#5,A$:GOSUB420:IFP=0ANDA$<>""THEN6330
  303. 6335 IFP=1THEN6320
  304. 6340 IFPTHENA$="[150][193][195][195][197][211][211] [196][197][206][201][197][196]!"+CR$:GOSUB8004:PRINTA$:N%(X%)=-23:P=5:GOTO13650
  305. 6345 T=TI+3000
  306. 6350 I$="":P$=""+PW$:GOSUB445:PRINT"[208][193][211][211][215][207][210][196] [211][197][206][212]":GOSUB16970
  307. 6355 PRINT"[156][210][197][211][208][207][206][211][197]:[146] [158]";
  308. 6360 GET#5,A$:GOSUB420:IFA$=""ANDP=0THEN6360
  309. 6362 IFA$=""ANDRN>1THENVE=1.26:GOTO6390
  310. 6365 IFA$=""THENPRINT"[193][195][195][197][211][211] [196][197][206][201][197][196]. [210][197][212][210][217][201][206][199]":GOTO6350
  311. 6367 IFA$="    "THENA$="[213][206][214][193][204][201][196][193][212][197][196]!":PRINTA$:GOSUB8004:P=1:GOTO6340
  312. 6370 IFPTHEN6340
  313. 6380 IFA$=""ANDRN>1THEN6390
  314. 6385 IFRN>1THEN6360
  315. 6386 IF(A$<"0"ORA$>":")ANDA$<>CR$THEN6360
  316. 6387 IFA$<>CR$ANDLEN(I$)<7THENI$=I$+A$:GOTO6360
  317. 6388 I=VAL(I$):IFI=0THENP=1:GOTO6340
  318. 6389 RN=I*-1:PRINT#5,"";
  319. 6390 PRINT"[193][195][195][197][211][211] [193][208][208][210][207][214][197][196]!":POKE53281,1:POKE53281,0
  320. 6391 IFVEORVAL(A$(.))=.THEN6000
  321. 6392 A$=CR$+NA$+" DOESN'T RUN V1.26!"+CR$+"[198]ILES NOT SENT: "
  322. 6393 FORI=1TOVAL(A$(.)):A$=A$+A$(8*I-3)+",":IFLEN(A$)>235THENGOSUB6900:A$=""
  323. 6394 NEXT:IFLEN(A$)THENA$=LEFT$(A$,LEN(A$)-1):GOSUB6900
  324. 6395 A$(.)="0":GOSUB43003:GOTO6594
  325. 6400 IFVAL(A$(.))THEN6410
  326. 6402 FORI=1TO2000:NEXT:F$="[186]+NODE"+STR$(X%):GOSUB202:GOSUB505
  327. 6404 A$="MSGS":IFERTHENA$="DONE
  328. 6406 [152]5,""A$:[137]6010
  329. 6410 F$[178]A$(8[172][197](A$(0))[171]3):[153]CR$"(null)REPARING TO SEND";
  330. 6415 A$[178]CR$[170]F$[170]" TO "[170]NA$:[141]6900:A$[178]F$:[141]8004
  331. 6420 D(10)[178][197](A$(8[172][197](A$(0))[171]6)):[139][197](A$(8[172][197](A$(.))[171]5))[178]1[167]D(10)[178][171]D(10)
  332. 6430 H$(10)[178]A$(8[172][197](A$(0))[171]4):[141]499:[141]203:[141]505
  333. 6435 [139]ER[167]A$[178][196](ER)[170]ER$[170][196](ET)[170][196](ES):[141]6900:A$(0)[178]"0":[137]6400
  334. 6440 [152]5,"FILE":[152]5,A$(8[172][197](A$(0))[171]7)
  335. 6450 [152]5,A$(8[172][197](A$(0))[171]2)
  336. 6460 B[178][197](A$(8[172][197](A$(0))[171]1)):[152]5,B:[129]T[178].[164]9:[161]#5,A$:[130]
  337. 6470 T[178]TI[170]1500
  338. 6490 [161]#5,A$:[141]420:[139]P[178]0[175]A$[178]""[167]6490
  339. 6495 [139]P[177]9[167]6250
  340. 6500 [139]P[167][141]6250:N%(X%)[178][171]23:P[178]5:[142]
  341. 6505 [139]A$[178]""[167]A$[178]NA$[170]" HAS FILE ALREADY!":[141]6900:[137]6595
  342. 6510 [139]A$[178]"    "[167]A$[178]NA$[170]" GOT AN ERROR!":[141]6900:[137]6595
  343. 6520 [139]A$[179][177]""[167]6490
  344. 6530 [141]7530:[141]42650:[141]7510
  345. 6540 T[178]TI[170]600
  346. 6560 [161]#5,A$:[141]420:[139]P[178]0[175]A$[178]""[167]6560
  347. 6570 [139]P[167][141]6250:N%(X%)[178][171]23:P[178]5:[142]
  348. 6573 [139]A$[178]"    "[167]A$[178]"(null)ROBLEM WITH XFER":[141]6900:[137]6595
  349. 6575 [139]A$[179][177]""[167]6560
  350. 6580 [153]:A$[178]"(null)UCCESSFUL (null)END!":[141]6900:[139][197](A$(8[172][197](A$(0))))[179]99[167]6590
  351. 6585 [141]499:[141]5000
  352. 6590 A$(0)[178][196]([197](A$(0))[171]1)
  353. 6592 [139][197](A$(0))[167]6400
  354. 6594 [141]491:F$[178]"SQR+FILE"[170][196](X%):[141]5000:A[178]232:[141]1530:[137]6400
  355. 6595 LG$[178]LG$[170]"DEFRECEIVER ERRORWAIT":[141]8005:[137]6590
  356. 6600 A[178]4:[141]1530:T[178]TI[170]1800:I[178]1
  357. 6620 [161]#5,A$:[141]420:[139]P[178]0[175](A$[178]""[176]A$[179]" "[176]A$[177]"(null)")[175]A$[179][177]CR$[167]6620
  358. 6630 [139]P[167]C[178]2:[137]13115
  359. 6640 [139]A$[179][177]CR$[175][195](A$(I))[179]17[167]A$(I)[178]A$(I)[170]A$:[137]6620
  360. 6650 A$(I)[178][200](A$(I),16):[153]A$(I)
  361. 6655 [139]A$(1)[178]"DONE"[167]A$(1)[178]"":[142]
  362. 6660 [139]A$(1)[179][177]"FILE"[167]A$(1)[178]"":[137]6112
  363. 6670 [139]I[179]4[167]I[178]I[170]1:[137]6620
  364. 6675 [141]491:UD[178](AR%[171](AR%[175]255))[173]256:[139]UD[167][141]484
  365. 6680 F$[178]A$(2):[139][198](F$)[179][177]64[167]F$[178][200](SD$[170]A$(2),16)
  366. 6685 I$[178]A$(3):[141]610:T[178][181](I):[139]T[179]1[176]T[177]2[167]T[178]1
  367. 6690 I$[178]A$(4):[141]610:B[178][181](I):A[178]4:[141]1530
  368. 6750 I$[178]F$:[141]16300:F$[178]I$:[139]A[170]10[179]B[167][152]5,"                
  369. 6752 A$=CR$+F$+" FROM "+NA$:GOSUB6950:MT=MT+1:A$(20+MT)=F$:LG$=LG$+F$:GOSUB8005
  370. 6755 IFA+10<BTHENMT=MT-1:A$="[196]ISK FULL!":GOSUB6950:GOSUB8004:GOTO6600
  371. 6760 GOSUB203:GOSUB505
  372. 6765 IFER=0THENMT=MT-1:PRINT#5,"":A$="[198]ILE [197]XISTS!":GOSUB6950:GOSUB8004
  373. 6766 IFER=.THEN6600
  374. 6770 PRINT#5,"":GOSUB7530:GOSUB42810:GOSUB7510
  375. 6772 IFPTHENMT=MT-1:A$="[212]RANSFER ERROR":GOSUB6950:PRINT#5,"                ":GOTO6600
  376. 6775 PRINT:A$="[211]UCCESSFUL":GOSUB6950:PRINT#5,"":GOTO6600
  377. 6900 QS=H:GOSUB491:OPEN21,DV,8,DR$+"[186]SLOG,A,S
  378. 6910 [152]21,A$:[153]A$
  379. 6920 [160]21:H[178]QS:[137]460
  380. 6950 QS[178]H:[141]491:[159]21,DV,8,DR$[170]"SQRRLOG,A,S":[137]6910
  381. 7010 [139]FR$[178]""[176]NF$[178]""[167]A[178]232:[137]1530
  382. 7015 [129]I[178][195](FR$)[164]1[169][171]1:[139][202](FR$,I,1)[179][177]"#"[167][130]
  383. 7020 R1[178][197]([202](FR$,I[170]1)):FR$[178][200](FR$,I[171]3):[139]R1[179]2[167]A[178]232:[137]1530
  384. 7030 [129]I[178][195](NF$)[164]1[169][171]1:[139][202](NF$,I,1)[179][177]"#"[167][130]
  385. 7040 C[178][197]([202](NF$,I[170]1)):[139]C[179]1[176]C[177]NN%[167]A[178]232:[137]1530
  386. 7050 A$[178]C2$[170]"READATNUTOREPLY: "[170]FR$[170]CR$[170]"READ(null)ODE: "[170]NF$:[158]C(0)
  387. 7060 P$[178]NF$:[145](LV[178]9)[170]2[137]14133,14072
  388. 7510 [151]52929,71
  389. 7515 [151]52951,0:[151]52952,0:[151]52950,1:[142]
  390. 7520 [151]52950,0:[142]
  391. 7530 I[178][181](.3[170]B[172]255[173]BR[173]6[170]B[172]3[173]132[170]B[172].015)[170]4:[139]I[179]5[167]I[178]5
  392. 7535 [139]I[177]18[167]I[178]18
  393. 7540 [151]52929,I[172]14[170]3:[137]7515
  394. 8003 LG$[178]LG$[170]"CONT"[170][200](I$,50):[137]8005
  395. 8004 LG$[178]LG$[170]"CONT"[170][200](A$,50)
  396. 8005 LG$[178]LG$[170]",":[139][195](LG$)[179]200[167][142]
  397. 8010 [139]LG$[178]NU$[170]C2$[167][142]
  398. 8015 [139]LG$[178]""[167][142]
  399. 8017 LG[178][183](40960)[170]256[172][183](40961):[139]LG[177]48896[167][158]C(18):[137]8015
  400. 8020 [129]II[178]1[164][195](LG$):[151]LG[170]II,[198]([202](LG$,II,1)):[130]:LG[178]LG[170]II[171]1:[151]LG[170]1,0
  401. 8040 [151]40960,LG[171]([181](LG[173]256))[172]256:[151]40961,[181](LG[173]256):LG$[178]"":[142]
  402. 9991 A$[178]"DEF(null)(null)1 LEN(null)ATN(null)LEFT$VALSTR$!!!":[158]C(0):LG$[178]LG$[170]A$:[141]8010:[141]13652
  403. 9999 [141]7520:[160]2:[160]8:[160]9:OV[178]5:[152]5:[137]95
  404. 12010 X[178]0:[153]C2$"(null)EGENERATING NETWORK INDEX:
  405. 12015 FORI=1TONN%:N%(I)=.:NEXT
  406. 12020 GOSUB491:OPEN8,DV,0,"$"+DR$+"[186]+*":C=1:POKEC(6),0
  407. 12030 GOSUB770:GOSUB780
  408. 12040 IFSTTHENC=1:GOTO12070
  409. 12050 SYSC(5):B=A:GOSUB780:IFSTTHEN12070
  410. 12060 A=VAL(MID$(STR$(B)+LEFT$(TX$,PEEK(142)),14,4))
  411. 12062 IFA<1ORA>NN%THEN12068
  412. 12063 PRINT"[206]ODE"A;:I=5
  413. 12064 IFMID$(TX$,I,1)<>"+"ANDI<8THENI=I+1:GOTO12064
  414. 12065 I=I+1:IFMID$(TX$,I,1)="N"THENN%(A)=1:PRINTTAB(12)"[205]SG(S)";
  415. 12066 IFMID$(TX$,I,1)="F"THENN%(A)=N%(A)+1:PRINTTAB(12)"[198]ILE(S)";
  416. 12068 PRINT:GOTO12050
  417. 12070 POKEC(6),13:CLOSE8
  418. 12210 S7=0:FORI=1TONN%:IFN%(I)THENS7=S7+1
  419. 12215 NEXT:RETURN
  420. 12220 S6=0:GOSUB491:F$="[186]PUBLIC STORAGE":GOSUB203:GOSUB510:IFERTHENS6=0:GOTO505
  421. 12222 PRINTCR$"[195]OUNTING PUBLIC MSGS HOLDING...";
  422. 12225 SYSC(5):SR=ST:IFLEFT$(TX$,PEEK(142))=""THENS6=S6+1:PRINT".";
  423. 12230 IFSR=0THEN12225
  424. 12240 S6=S6+1:PRINT:GOTO505
  425. 12600 PRINT"[147]"TAB(12)"[205]EMORY ="FRE(0)CR$""TAB(6)"F1[146] [196]ATE
  426. 12601 [153][163]6)"F2WAIT LENHANGE (null)INDOW/(null)PEAKER ("[202]("(null)ASCASC(null)(null)!",MT%[172]3[170]1,3)")
  427. 12602 PRINTTAB(6)"F3[146] [205]AINTENANCE [205]ENU"CR$TAB(6)"F4[146] [205]ULTI-[211]END
  428. 12603 [153][163]6)"F5WAIT (null)ELEASE (null)UBLICS"CR$[163]6)"F6WAIT (null)EGENERATE RIGHT$NDEX
  429. 12604 PRINTTAB(6)"F7[146] [208]OST [206]ETWORK [205]SG"CR$TAB(6)"F8[146] [210]ETURN
  430. 12606 [161]A$:[139]A$[179]"INPUT"[176]A$[177]"RESTORE"[167]12606
  431. 12610 [151]53281,1:[151]53281,.
  432. 12611 OV[178]4:[151]C(22),1:[145][198](A$)[171]132[137]12614,63,12618,12615,97,12616,12617,95
  433. 12614 OV[178]2:[137]95
  434. 12615 RN[178]2:LV[178]9:NA$[178]"(null)(null)(null)(null)(null)":[141]14005:[137]12600
  435. 12616 OV[178]6:[137]97
  436. 12617 [141]12010:[141]12220:[137]12600
  437. 12618 OV[178]10:[137]97
  438. 12950 [139]A$[178]""[167][142]
  439. 12960 A$[178][199]([198](A$)[175]127):[139]A$[177]"_"[167]A$[178][199]([198](A$)[175]32)
  440. 12965 [139]A$[179]" "[167]I$[178]"    ":[142]
  441. 12970 I$[178][201](I$,3)[170]A$:[153][163]10)I$"ON":[142]
  442. 13110 VE[178]1.26:[141]7510:[151]C(31),1:A$[178]"":[129]C[178]1[164]5:[158]C(1):[129]T[178]1[164]50:[130]:Z[178].
  443. 13112 [151]53281,1:[151]53281,0:[130]:[151]C(31),0:C[178]0
  444. 13113 LG$[178]NU$[170]C2$[170]"RIGHT$NCOMING->":[153]LG$;:[141]8010
  445. 13115 I$[178]"":T[178]TI[170]3600:[139]C[177]1[167]A$[178]"ASCAILED LOGIN"
  446. 13117 [139]C[177]1[167]LG$[178]LG$[170]A$:[141]8010:[153]C2$A$:[141]13650:OV[178]4:[137]95
  447. 13120 [141]16970:[152]5,"";
  448. 13122 [161]#5,A$:[141]420:[139](A$[178]""[176]A$[178]""[176]A$[178]"")[175]P[178].[167]13122
  449. 13125 [153]A$;:[139]P[167]C[178]4:[137]13115
  450. 13130 [139]A$[179][177]CR$[175][195](I$)[179]15[167]I$[178]I$[170]A$:[137]13122
  451. 13135 [139][195](I$)[179]5[167]13115
  452. 13140 [153]C2$"(null)ECEIVED (null)ASSWORD":[141]8003
  453. 13150 A[178][171]1:[129]I[178]1[164][195](I$):[139][202](I$,I,1)[178]","[167]A[178]I
  454. 13160 [130]:[139]A[178][171]1[167]13240
  455. 13165 A$[178]I$:I$[178][200](I$,A[171]1):[141]610:RN[178]I:X%[178]I:I$[178]A$
  456. 13170 I$[178][202](I$,A[170]1):PW$[178]I$:[139]RN[179]1[167]13240
  457. 13171 [141]1110:A$[178]T$:[141]8004:[139][200](PW$,1)[178]"+"[167]I$[178][202](PW$,2):VE[178].
  458. 13172 [139]RN[178]1[167]A$[178]"(null)VAL(null) (null)(null)STR$VAL-"[170]I$[170]" (#"[170][202]([196](NI%),2)[170]")":[153]A$:VE[178].
  459. 13175 [139]RN[178]1[167][141]8004:[137]13260
  460. 13180 [139]Z[178]0[167][141]13300
  461. 13185 [141]18520:[139]ER[167][160]8:C[178]5:[137]13115
  462. 13190 [141]910:[132]8,J:[139]J[179]RN[167][160]8:[137]13240
  463. 13200 II[178]27:[141]945:[141]510:PW$[178]A$:[141]8004
  464. 13210 [139]PW$[179][177]I$[167][160]8:[137]13240
  465. 13220 II[178]1:[141]945:NA$[178][200](A$,20):II[178]38:[141]945:LV[178][197](A$):[160]8
  466. 13225 [139]LV[178]0[167]A$[178]"(null)(null)(null)ATN(null)RIGHT$STR$ATN(null)VALSTR$!":[153]A$:[141]8004:C[178]6:[152]5,"                ":[137]13115
  467. 13227 I$[178]NA$[170]" (#"[170][202]([196]((LV[177]1)[170]LV),2)[170]")":[141]8003
  468. 13230 P$[178]"":[141]445:[137]13250
  469. 13240 I$[178]"":A$[178]"(null)NAUTHORIZED NODE ATTEMPT!":[153]C2$A$:[141]8004:C[178]C[170]1:[137]13115
  470. 13250 [153]C2$"LENORRECT (null)OGIN!":[137]80
  471. 13260 [152]5,""[170][196](NI%)[170]" :280"
  472. 13265 [161]#5,A$:[141]420:[139]A$[179][177]""[175]P[178]0[167]13265
  473. 13270 [139]P[167]C[178]7:[137]13115
  474. 13280 X%[178]NI%:[139][200](PW$,1)[178]"+"[167]PW$[178][202](PW$,2):[137]13250
  475. 13282 [137]13250
  476. 13300 [141]491:[159]8,DV,8,DR$[170]"SQRTEMP XREF":[141]510:[139]ER[167]13330
  477. 13305 [153]"LENHECKING RIGHT$STR$ XREF..";
  478. 13310 [132]8,A,B:SR[178]ST:[139]A[179][177]RN[175]SR[178]0[167]13310
  479. 13320 [139]A[178]RN[167]RN[178]B:Z[178]1:[153]"(null)(null)STR$ ="A",(null)VAL(null) ="B
  480. 13330 [153]:[137]505
  481. 13600 [139][194](53272)[178]21[176][194](C(12))[178]255[167][142]
  482. 13602 [153]" (null)NLINE:"X%"CMD-"NA$" WAIT":[142]
  483. 13610 [141]155:A$[178]"DEF(null)ESSAGE PEEKANK ASCULL!":[137]160
  484. 13620 [141]155:A$[178]"DEF(null)VAL(null)-(null)RIGHT$(null)VAL(null)(null)(null)!!":[137]160
  485. 13640 [139][194](53272)[178]21[167][142]
  486. 13642 A$[178]"ONORTAN^CMD(null)CMDCMDCMD/TANEXPCMDCMDCMDCMDONON(null)READ":[158]C(1):[142]
  487. 13650 [146]673,1,1
  488. 13652 [151]C(28),0:[151]56577,M3:[151]C(31),0:[139]BR[179]1200[167]BR[178]300:[141]27500
  489. 13653 [141]13695:[139]CD[178]([194](56577)[175]16)[167]13660
  490. 13654 A$[178]"+++":[158]C(1):[151]56577,0:[141]13695:[151]56577,M3:[152]5,"ATS0=0H0
  491. 13655 GOTO13653
  492. 13660 B$="ATS0=0H1":PRINT#5,B$:FORI=1TO2000:NEXT:IFAT>0THEN15917
  493. 13665 RETURN
  494. 13670 A$=C2$+"[150][204]INE NUMBER OUT OF RANGE!":GOTO160
  495. 13680 IF(PEEK(53281)AND15)>0ORPEEK(53272)=21THENA$="[147][136]":SYSC(1)
  496. 13685 RETURN
  497. 13695 I=TI+120
  498. 13696 GET#5,A$
  499. 13697 IFI>TITHEN13696
  500. 13698 RETURN
  501. 13700 B$="ATH0":GOTO15915
  502. 13950 A$=CHR$(142):SYSC(1):A$(4)="[147]"+A$+A$(4):IFA=4THENA=5:A$=A$(4):SYSC(1)
  503. 13960 RETURN
  504. 14005 MT=0:FR$="":GOSUB14006:A=232:GOTO1530
  505. 14006 IFNN%=0THENGOSUB155:A$="[150][206]ETWORK TEMPORARILY CLOSED!":GOTO160
  506. 14007 A$=C2$+"[135][208]OST A [206]ETWORK [205]ESSAGE":SYSC(0):A=0:X=1:IFLV=9THEN14078
  507. 14008 A=CM%(43,1):IFCM%(43,0)<=CM%(43,2)THEN14010
  508. 14009 IFLV<ATHENA$=C2$+"[150][205]AXIMUM"+STR$(CM%(43,2))+" [206]ET POSTS PER CALL!":GOTO160
  509. 14010 A$=C2$+"[135][195]HECKING ACCOUNT BOOK...":SYSC(0):GOSUB491:GOTO14072
  510. 14020 F$="[186]NODE LIST":GOSUB202:GOSUB510:IFERTHEN505
  511. 14025 FORII=1TOI
  512. 14030 SYSC(5):I$=LEFT$(TX$,25):SYSC(5):C$=LEFT$(TX$,1)
  513. 14040 NEXT:GOSUB390
  514. 14050 CLOSE8:GOSUB491:GOSUB16300:IFA<0THEN13610
  515. 14060 RETURN
  516. 14072 GOSUB491:GOSUB18500:IFERTHEN505
  517. 14074 II=1:GOSUB945:GOSUB510:GOSUB505
  518. 14075 B=VAL(A$):GOSUB14810:BA=B
  519. 14076 A$=CR$+"[135][194]ALANCE = "+I$:SYSC(0):GOSUB8003:GOSUB491:GOSUB13600
  520. 14078 IFFR$<>""THEN14133
  521. 14080 GOSUB995:A$=CR$+"[135][211]ELECT [206]ODE (1-"+MID$(STR$(NN%),2)+") OR [210][197][212][213][210][206]?"
  522. 14085 IFLV=9THENA$=A$+CR$+"[135](X=DEFAULT MULTI-SEND)"
  523. 14087 A$=A$+CR$+"[135](?=NODES LIST)":SYSC(.)
  524. 14090 GOSUB305:GOSUB610:IFPORI$=""THENRETURN
  525. 14092 IFI$="X"ANDLV=9THENMT=-1:C=1:GOTO14143
  526. 14095 IFI$="?"THENGOSUB14710:GOTO14080
  527. 14100 IFI<1ORI>NN%THEN14080
  528. 14105 GOSUB14020:IFC$<>""ANDC$<>""ANDC$<>"    "ANDC$<>""THEN14120
  529. 14110 A$=CR$+"[150][206]ODE IS TEMPORARILY OUT OF SERVICE!":SYSC(0):GOTO14080
  530. 14120 A$=C2$+"[135][211]END TO "+I$+"? ":SYSC(1):GOSUB1010:IFPTHENRETURN
  531. 14130 C=I:SYSC(0):IFA$="[206]"THEN14080
  532. 14132 P$=I$:A$=P$:GOSUB8004
  533. 14133 IF(BA=>NN(C,1)ORLV=9)ANDFR$=""THEN14140
  534. 14134 IFFR$<>""AND(BA=>NN(C,1)ORLV=9)THENI$=FR$:I=0:GOTO14175
  535. 14135 GOSUB155:A$="[150][201]NSUFFICIENT BALANCE REMAINING![146]":SYSC(0):GOTO8004
  536. 14140 REM
  537. 14143 A$=C2$+"[135][201]S THIS A PRIVATE MESSAGE ([217]/[206])? ":SYSC(1)
  538. 14145 GOSUB1010:IFPTHENRETURN
  539. 14150 SYSC(0):IFA$="[206]"THEN14600
  540. 14160 GOSUB13600:IFMT=-1ANDLV=9THENI$="[211][217][211][207][208]":GOTO14175
  541. 14165 A$=CR$+"[135][197]NTER USER [206][193][205][197] OR [206][213][205][194][197][210]."+CR$+"(?=[205]EMBERSHIP [204]IST
  542. 14167 A$[178]A$[170]",(null)(null)(null)(null)(null)=(null)ODE (null)YSOP)":[158]C(0)
  543. 14170 [141]302:[141]610:[139]P[176]I$[178]""[167][142]
  544. 14175 [139]I$[178]"(null)(null)(null)(null)(null)"[167]I[178]2:X$[178]I$:[160]8:[137]14280
  545. 14180 F$[178]"SQRNODE"[170][196](C)[170]" USERS":[139]I$[178]"?"[167][141]205:[139]ER[178]0[167]14165
  546. 14190 [160]8:[141]202:[141]510:[141]155:[139]ER[167][160]8
  547. 14192 [139]ER[167]A$[178]"DEF(null)EMBER LIST NOT INSTALLED YET!":[158]C(0):[141]8004:[137]14165
  548. 14195 A$[178]"READ(null)EARCHING MEMBERSHIP LIST...":[158]C(1)
  549. 14200 [141]105:[158]C(5):SR[178]ST:X$[178][200](TX$,[194](142))
  550. 14205 X$[178][202](X$,[195]([196]([197](X$)))[170]3)
  551. 14210 [139][197](TX$)[178]I[175]I[179][177]0[167][141]505:[137]14260
  552. 14220 [139]I$[178]X$[167][141]505:I[178][197](TX$):[137]14280
  553. 14230 [141]110:[139]SR[178]0[175]P[178]0[167]14200
  554. 14250 [141]505:[141]155:A$[178]"DEF(null)AME NOT FOUND!WAIT":[158]C(0):[141]8004:[137]14165
  555. 14260 A$[178]C2$[170]"READRIGHT$S "[170]X$[170]" CORRECT? ":[158]C(1)
  556. 14265 [141]1010:[139]P[167][142]
  557. 14270 [158]C(0):[139]A$[178]"(null)"[167]14165
  558. 14280 Z$[178]"SQR+PRIV"[170][196](I)[170]X$:A$[178]X$:[141]8004
  559. 14285 SU$[178]"(null)RIVATE (null)AIL"
  560. 14290 A$(0)[178]"ASCROM:WAIT "[170]NA$[170]" (#"[170][202]([196](RN),2)[170]")"[170]CR$
  561. 14295 [141]1110:A$(1)[178]"STR$ATE:WAIT "[170]DA$[170]" - "[170]T$[170]CR$
  562. 14300 A$(2)[178]"(null)UBJ:WAIT "[170]SU$[170]CR$
  563. 14301 A$(3)[178]"(null)ODE:WAIT "[170]NN$[170]C2$
  564. 14302 FI$[178]"SQR+NODE"[170][196](C):[139]LV[178]9[175]MT[178][171]1[167]FI$[178]"SQR+NODE X"
  565. 14303 N[178]ML:ML[178]75:[141]1283:ML[178]N
  566. 14310 [139]A[178]4[167][142]
  567. 14315 L[178]0:[129]I[178]4[164]A:L[178]L[170][195](A$(I)):[130]
  568. 14320 A$[178]C2$[170]"(null)ESSAGE LENGTH ="[170][196](L)[170]" BYTES.":[158]C(25)
  569. 14325 [139](NN(C,1)[178]0[175]NN(C,0)[178]0)[176]LV[178]9[167]B[178]0:[137]14370
  570. 14330 A$[178]CR$[170]"READ(null)HIS MESSAGE WILL COST YOU "
  571. 14335 B[178]NN(C,0)
  572. 14340 [139]L[177]1000[167]B[178]B[170][181]((L[171]1000)[173]100[170]1)[172]NN(C,1)
  573. 14360 [141]14810:A$[178]A$[170]I$:[158]C(25)
  574. 14362 [139]BA[171]B[179]0[167][141]14135:[137]14390
  575. 14370 [141]995:A$[178]C2$[170]"READ(null)END MESSAGE ((null)/(null))? ":[158]C(26):[141]1010:[139]P[167]14390
  576. 14380 [158]C(25):[139]A$[178]"(null)"[167][141]491:[141]1455:CM%(43,0)[178]CM%(43,0)[170]1:[137]14395
  577. 14390 N[178]ML:ML[178]75:[141]1410:ML[178]N:[137]14310
  578. 14395 [139]MT[178][171]1[167]14400
  579. 14396 A$[178]C2$[170]"READ(null)OULD YOU LIKE VERIFICATION"[170]CR$
  580. 14397 A$[178]A$[170]"AFTER MESSAGE IS SENT ((null)/(null))? ":[158]C(1):[141]1010
  581. 14398 [158]C(0):[139]A$[178]"(null)"[167][141]14520
  582. 14400 [141]12210:A$[178][196](L)[170]" BYTES":[141]8004
  583. 14402 [139]N%(C)[179]1[167]N%(C)[178]N%(C)[170]1
  584. 14403 [139]B[178]0[167][142]
  585. 14405 [141]155:A$[178]"DEF(null)OUR BALANCE IS NOW "
  586. 14410 BA[178]BA[171]B:B[178]BA:[141]14810
  587. 14420 A$[178]A$[170]I$:[158]C(0):[141]8004
  588. 14430 A$[178]C2$[170]"READ(null)PDATING ACCOUNTING BOOK. (null)LEASE WAIT...":[158]C(1)
  589. 14440 [141]491:[159]8,DV,8,DR$[170]"SQRNODE LEDGER,S,W":[141]510
  590. 14450 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]"SQRNODE LEDGER,A":[141]510
  591. 14460 I[178]A:[139]ER[167]14480
  592. 14470 [141]1110:[152]8,DA$[170]"-"[170]T$[170]"/"[170][196](RN)[170]"-"[170]NA$[170]"/"[170]P$[170]"/"[170]Z$[170]"/";
  593. 14475 [152]8,[196](I)[170]" LINES/";:B[178]NN(C,0):[141]14810:[152]8,I$[170]"/";
  594. 14480 B[178]NN(C,1):[141]14810:[152]8,I$[170]"/";:B[178]BA:[141]14810:[152]8,I$:[141]505
  595. 14490 [141]491:[141]18500:[139]ER[167][141]505:A$[178]"DEFPEEKRIGHT$(null)(null)RIGHT$(null)CHR$ VAL(null)(null)(null)(null)!":[137]8004
  596. 14495 [141]910:[132]8,J
  597. 14497 [139]RN[177]J[167][141]910:[152]8,RN:BA[178]0
  598. 14500 B[178]BA:[141]14810
  599. 14510 [141]510:II[178]1:[141]905:[141]510:[141]905:[152]8,[202](I$,2):[141]905
  600. 14515 [141]510:[137]505
  601. 14520 [141]491:F$[178]"SQRNODE VERIFY"[170][196](C):[159]8,DV,8,DR$[170]F$[170]",S,W":[141]510
  602. 14530 [139]ER[178]63[167][160]8:[159]8,DV,8,DR$[170]F$[170]",A":[141]510
  603. 14540 [139]ER[167]505
  604. 14545 [139]SU$[178]""[167]SU$[178]"(null)RIVATE (null)AIL"
  605. 14547 [139][201](P$,1)[178]CR$[167]P$[178][200](P$,[195](P$)[171]1):[137]14547
  606. 14548 [139][200](P$,1)[178]CR$[167]P$[178][202](P$,2):[137]14548
  607. 14550 [141]1110:[152]8,DA$" - "T$CR$P$CR$RN;CR$SU$:[137]505
  608. 14600 A$[178]C2$[170]"READVALNTER THE MESSAGE SUBJECT?":[158]C(0)
  609. 14610 [141]305:[139]P[176]I$[178]""[167][142]
  610. 14612 A$[178]"STOPOPENCLRSYSFORVERIFYDEFPOKEPRINT#PRINTCONTLIST":[129]I[178]1[164][195](I$):[129]A[178]1[164]16
  611. 14614 [139][202](I$,I,1)[178][202](A$,A,1)[167]I$[178][200](I$,I[171]1)[170][202](I$,I[170]1)
  612. 14616 [130]:[130]:[139]I$[178]""[167]14600
  613. 14620 SU$[178]I$:[141]8003:Z$[178]"SQR+PUBL":[137]14290
  614. 14710 F$[178]"SQRNODE LIST":[141]202:[141]510:[139]ER[167]505
  615. 14715 A$[178]C2$[170]"                       WAIT CONT 1ST   (null) DEFVALACH
  616. 14716 A$=A$+CR$+"  [208]ARTICIPATING [206]ODES  [146] [154] 1000  [221] [150]100
  617. 14717 A$[178]A$[170]CR$[170]"                       WAIT  CONTPEEKYTES (null) DEFATNFTER":[158]C(0)
  618. 14720 [141]155:[129]I[178]1[164]NN%
  619. 14730 [158]C(5):SR[178]ST:A$[178]"READ"[170][202]([196](I),2)[170]":"[170][200](TX$,[194](142)):[158]C(0)
  620. 14740 [158]C(5):SR[178]ST:A$[178][200]("   ",[195]([196](I))[170]3)[170][200](TX$,[194](142))
  621. 14742 [129]P[178]1[164]4:[139][200](TX$,1)[178][202]("    ",P,1)[167]A$[178]A$[170]"DEF *[LEN(null)(null)(null)VALSTR$WAIT]*":P[178]4
  622. 14745 [130]:[158]C(0):[141]110:[139]A$[178]" "[167]P[178]1
  623. 14747 [139]P[167]I[178]NN%
  624. 14750 [130]:[137]505
  625. 14810 I$[178][196](B):Z[178]0:[129]I[178]1[164][195](I$):[139][202](I$,I,1)[178]"E"[167]Z[178]I
  626. 14820 [130]:[139]Z[177]0[167]I$[178]"0.00":[142]
  627. 14840 [139][202](I$,2,1)[178]"."[167]I$[178][200](I$,1)[170]"0"[170][202](I$,2)
  628. 14850 Z[178]0:[129]I[178]1[164][195](I$):[139][202](I$,I,1)[178]"."[167]Z[178]I
  629. 14860 [130]:[139]Z[178]0[167]Z[178][195](I$)[170]1:I$[178]I$[170]"."
  630. 14870 I$[178]I$[170]"00":I$[178][200](I$,Z[170]2):[139]B[178][177]0[167]I$[178][202](I$,2)
  631. 14880 I$[178]"$"[170]I$:[142]
  632. 15915 [152]5,B$:[139]CD[179][177]([194](56577)[175]16)[167][142]
  633. 15917 I[178]TI[170]180
  634. 15920 [161]#5,A$:[139]I[179]TI[167]15915
  635. 15930 [139]A$[178]""[167]15920
  636. 15940 I$[178][201](I$,1)[170]A$:[139]I$[179][177]"OK"[167]15920
  637. 15950 [142]
  638. 16300 F$[178]"":[141]710:A[178]A[171]MB:[142]
  639. 16950 [151]56577,M4:[151]C(31),0
  640. 16951 [153]"LOADCLRTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  641. 16953 PRINT"[154][158][199]OOD:[154][221][145][157][176][192][192][192][174][157][221][157][189][157][157][192][157][157][192][157][157][192][157][157][173][145]";
  642. 16955 PRINTTAB(15)"[158][194]AD:[154][221][145][157][176][192][192][192][174][157][221][157][189][157][157][192][157][157][192][157][157][192][157][157][173][145][145][145][145][145][145][145][145][145]
  643. 16960 [141]13602:[153]"ASCILENAME: "F$:[153]C$" ((null)-(null)(null)STR$VAL(null))
  644. 16970 POKE668,PEEK(667):RETURN
  645. 18500 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE BILLING":GOTO510
  646. 18510 GOSUB480:OPEN8,DV,8,DR$+"[186]PASSWORD FILE":GOTO510
  647. 18520 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE ACCOUNTS":GOTO510
  648. 22500 IFABS(I)<7ORABS(I)>15THENRETURN
  649. 22505 H$(10)="":CLOSE15:OPEN15,ABS(I),15:CLOSE15:IFST=0THEND(10)=I
  650. 22510 DX=0:GOTO499
  651. 27500 POKE659,0:IFBR=300THENPOKE659,6
  652. 27520 ER=1.02273E6:A=ER/BR:GOSUB27590:POKEC(29),ES:POKEC(30),ET
  653. 27530 IFBR=1200THENPOKE659,8:A=ER/BR*.966:GOSUB27590
  654. 27535 IFBR=2400THENPOKE659,10:A=ER/BR*.9024:GOSUB27590
  655. 27540 POKE665,ES:POKE666,ET:A=ER/BR/2-100:GOSUB27590:POKE661,ES:POKE662,ET
  656. 27545 IFBR=2400THENPOKE661,114:POKE665,132:POKEC(29),172
  657. 27550 RETURN
  658. 27590 ET=INT(A/256):ES=INT(A-ET*256):RETURN
  659. 40000 X%=X%+1:IFX%>NN%THENRETURN
  660. 40001 GOSUB40006:IFP=5THEN40000
  661. 40002 GOSUB13650:S=INT(TI/60)
  662. 40003 IFER=0ANDP=0THENLG$=LG$+STR$(INT(S/6)/10)+" MINS.[154]"+CR$:GOSUB8015
  663. 40004 IFRN<0THENOV=12:GOTO97
  664. 40005 OV=13:GOTO97
  665. 40006 POKEC(22),1:POKE56577,M4:GOSUB16970
  666. 40010 IFN%(X%)=0THENP=5:RETURN
  667. 40012 GOSUB491:OPEN8,DV,8,DR$+"[186]NODE LIST":GOSUB510:IFERTHENP=5:GOTO505
  668. 40013 FORJ=1TOX%:SYSC(5):I$=LEFT$(TX$,25):SYSC(5):NEXT:CLOSE8:A$=LEFT$(TX$,1)
  669. 40014 GOSUB390:NA$=I$:LG$=NA$+" (#"+MID$(STR$(X%),2)+")":GOSUB8010
  670. 40015 PRINT"[147]"C2$"[156][206][207][196][197]    :[146][158] "NA$CR$"[156][211][212][193][212][213][211]  :[158][146] ";
  671. 40016 IFA$<>""ANDA$<>""ANDA$<>"    "THEN40019
  672. 40017 N%(X%)=.
  673. 40018 A$="[204][207][195][203][197][196]":P=5:PRINTA$"":GOTO8004
  674. 40019 PRINT"[158][207][208][197][206]"CR$"[156][198][201][204][197][211]   :[146][158]";
  675. 40020 GOSUB481:OPEN8,DV,8,DR$+"[186]NTWRK.PARMS":GOSUB510:IFERTHENP=5:GOTO505
  676. 40030 INPUT#8,A,A,A,A,A$,A
  677. 40040 FORJ=1TOX%:INPUT#8,RN,BR,P$,A$:NEXT:CLOSE8
  678. 40045 IFLEFT$(P$,1)="+"THENP$=MID$(P$,2)
  679. 40047 IFRN=1THENA$="+"+A$
  680. 40050 PW$=STR$(RN)+","+A$:C=0:GOSUB27500:POKE56577,M1:A$(0)=" 0
  681. 40055 [141]491:[159]8,DV,8,DR$[170]"SQR+FILE"[170][196](X%):[141]510:[139]ER[167]40080
  682. 40057 A[178]1:A%[178]8
  683. 40060 [129]I[178]A[164]A%:[158]C(5):A$(I)[178][200](TX$,[194](142)):[130]:A$(0)[178][196]([197](A$(0))[170]1)
  684. 40070 [139]ST[178]0[167]A[178]A[170]8:A%[178]A%[170]8:[137]40060
  685. 40080 [160]8:[153]A$(0)
  686. 40090 [153]"CLR(null)(null)STR$VAL(null)   :WAIT SYSSTR$RIGHT$ATN(null)RIGHT$(null)CHR$ ";
  687. 41110 [141]13700
  688. 41120 [151]56577,M4:[141]16970
  689. 41125 [152]5,"ATM"[202]([196](MT%),2)"DT"P$:[153]P$
  690. 41210 [129]I[178]1[164]20:[161]#5,A$:[130]:[153]"CLR(null)VAL(null)(null)(null)(null)(null)VAL:WAIT SYS";
  691. 41215 [129]I[178]1[164]2000:[161]X$:[139]X$[179][177]""[167]I[178]2000:[153]"DEF(null)ATN(null)(null)ATN(null) ATNPEEK(null)(null)(null)!
  692. 41220 GET#5,A$:GOSUB12950
  693. 41222 IFI$="BUSY"ORI$="RIER"ORI$="LTON"THENI=2000
  694. 41223 IFI$="RIER"THENA$="[150][206][207] [195][193][210][210][201][197][210]":GOSUB8004:IFBN%THENN%(X%)=-9
  695. 41224 IFI$="1200"THENBR=1200:GOSUB27500:J=20
  696. 41225 IF(PEEK(56577)AND16)=CDTHENJ=0:GOTO41240
  697. 41230 J=J+1:IFJ>20THENTI$="000000":GOTO41270
  698. 41240 NEXT:GOSUB16970:IFI$="BUSY"THENA$="[150][194][213][211][217][154]
  699. 41242 [139]I$[178]"LTON"[167]A$[178]"DEF(null)(null) STR$RIGHT$ATN(null)(null)(null)(null)VALCONT
  700. 41250 GOSUB41290:P$="
  701. 41260 P[178]5:LG$[178]A$[170]CR$:[137]8010
  702. 41270 [153]"LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null) VAL(null)(null)ATNPEEK(null)RIGHT$(null)LEFT$VALSTR$ @"BR:VE[178]0:[141]7510
  703. 41280 A$[178][196](BR):[141]8004:P[178].:[141]16970:[141]6310
  704. 41290 [151]56577,M1:[152]5,"ATH1M0":[129]I[178]1[164]100:[161]#5,I$:[130]:[142]
  705. 41505 A$[178]C2$[170]"READSTR$EVICE NUMBER (8-15) ["[170][202]([196](DV),2)[170]"] > "
  706. 41507 [158]C(1):[141]300:[139]I$[178]""[167]I$[178][196](DV)
  707. 41510 [141]610:[139]I[179]8[167]P[178]99
  708. 41515 [139]P[167][142]
  709. 41520 [141]22500:A$[178]CR$[170]"READSTR$RIVE NUMBER (0-1) [0] > ":[158]C(1):[141]300
  710. 41530 [139]I$[178]"1"[167]D(10)[178][171]D(10)
  711. 41540 [139]P[167][142]
  712. 41545 A$[178]CR$[170]"READSTR$RIVE COMMAND > ":[158]C(1):[141]300:H$(10)[178]I$:[139]P[167][142]
  713. 41550 A$[178]CR$[170]"READASCILENAME > ":[158]C(1):[141]310:FI$[178]I$:[139]P[167][142]
  714. 41560 DX[178]0:[137]499
  715. 42650 C$[178]"PRINT#(null)VAL(null)STR$RIGHT$(null)CHR$":[151]39214,0
  716. 42702 [141]16950:[160]2:[159]2,DV,3,DR$[170]F$:[141]510
  717. 42705 [158]39215:[151]40955,2:[158]39177:[139][194](512)[178]1[167]P[178]1:[137]42720
  718. 42715 [158]39215:[151]40952,BS:[158]39171
  719. 42720 [160]2
  720. 42750 [141]510:[139][194](787)[170]CD[179][177]16[167][141]13620:[137]8004
  721. 42760 [142]
  722. 42810 C$[178]"PRINT#(null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$
  723. 42855 GOSUB16950:POKE40955,2:POKE39214,0:GOSUB16970
  724. 42860 SYS39215:SYS39174:IFPEEK(512)=1THENP=1:GOTO42900
  725. 42877 CLOSE2:OPEN2,DV,3,DR$+F$+","+MID$("PS",T,1)+",W":FORI=1TO1300:NEXT:SYS61310
  726. 42890 SYS39215:SYS39168:P=PEEK(512):GOSUB510:CLOSE2:IFP>2THENP=0
  727. 42900 IFPEEK(787)+CD<>16THENGOSUB13620:GOTO8004
  728. 42905 RETURN
  729. 43003 BS=0:IFPEEK(39215)<>32THENGOSUB489:SYS57812"[186]BBS.XMO*",DV,1:POKE780,0:SYS62626
  730. 43004 B=0:IFPEEK(39965)=8THENPOKE39965,2
  731. 43005 IFPEEK(817)=223THENPRINT#15,"UI
  732. 43010 [142]
  733.